home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Tools 4
/
Amiga Tools 4.iso
/
grafix
/
raytracing
/
raystorm
/
examples
/
arexx
/
backdrop.ray
< prev
next >
Wrap
Text File
|
1996-02-26
|
907b
|
51 lines
/***************
* NAME: backdrop.ray
* VERSION: 1.0 16.08.1995
* DESCRIPTION: Test of backdroppicture
* AUTHORS: Andreas Heumann
* BUGS: none
* TO DO: none
* HISTORY:
* DATE NAME COMMENT
* 16.08.95 ah initial release
***************/
signal on error
options results
IF ~show('P','RAYSTORM') THEN DO
address COMMAND 'run >NIL: <NIL: /RayStorm'
address COMMAND WaitForPort RAYSTORM
END
address RAYSTORM
'BRUSHPATH /brushes'
'SETSCREEN 180 90'
'SETCAMERA <0,0,-5> <0,0,0> <0,1,0> 90 45'
'SETWORLD [0,0,0] [100,100,100] BACKDROP=earth.png'
'POINTLIGHT <5,5,-10> [255,255,255]'
'NEWSURFACE MAP'
'BRUSH eight_brush.png COLOR FLAT <0,0,0> <0,0,0> <1,1,1>'
'SPHERE MAP <0,0,0> 1'
'ANTIALIAS 2'
'STARTRENDER QUICK'
'SAVEPIC backdrop.iff'
'CLEANUP'
exit 0
error:
say "Error" rc "in line" sigl ":"
GETERRORSTR rc
say result
exit 0